home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAPCP02.ZIP / PWRBALL2 / PWRBALL2.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-11-15  |  5KB  |  260 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     String   STRING001
  23.     String   STRING002
  24.     String   STRING003
  25.     Byte     BYTE001
  26.     Byte     BYTE002
  27.     Byte     BYTE003
  28.     Byte     BYTE004
  29.     Byte     BYTE005
  30.     Byte     BYTE006
  31.     Byte     BYTE007
  32.     Byte     BYTE008
  33.     Byte     BYTE009
  34.     Word     WORD001
  35.  
  36. ;------------------------------------------------------------------------------
  37.  
  38.     FOpen 2, PPEPath() + PPEName() + ".CFG", 0, 0
  39.     FGet 2, STRING002
  40.     FGet 2, STRING003
  41.     BYTE001 = 1 + Random(44)
  42.     :LABEL001
  43.     BYTE002 = 1 + Random(44)
  44.     If (BYTE001 == BYTE002) Then
  45.         Gosub LABEL001
  46.     Endif
  47.     :LABEL002
  48.     BYTE003 = 1 + Random(44)
  49.     If (BYTE001 == BYTE003) Then
  50.         Gosub LABEL002
  51.     ElseIf (BYTE002 == BYTE003) Then
  52.         Gosub LABEL002
  53.     Endif
  54.     :LABEL003
  55.     BYTE004 = 1 + Random(44)
  56.     If (BYTE001 == BYTE004) Then
  57.         Gosub LABEL003
  58.     ElseIf (BYTE002 == BYTE004) Then
  59.         Gosub LABEL003
  60.     ElseIf (BYTE003 == BYTE004) Then
  61.         Gosub LABEL003
  62.     Endif
  63.     :LABEL004
  64.     BYTE005 = 1 + Random(44)
  65.     If (BYTE001 == BYTE005) Then
  66.         Gosub LABEL004
  67.     ElseIf (BYTE002 == BYTE005) Then
  68.         Gosub LABEL004
  69.     ElseIf (BYTE003 == BYTE005) Then
  70.         Gosub LABEL004
  71.     ElseIf (BYTE004 == BYTE005) Then
  72.         Gosub LABEL004
  73.     Endif
  74.     BYTE006 = 1 + Random(44)
  75.     FGet 2, INTEGER003
  76.     FClose 2
  77.     WORD001 = Year(Date())
  78.     BYTE008 = Month(Date())
  79.     BYTE009 = Day(Date())
  80.     BYTE007 = Dow(Date())
  81.     If (BYTE007 == 3) Then
  82.         Goto LABEL005
  83.     Endif
  84.     If (BYTE007 == 6) Then
  85.         Goto LABEL005
  86.     Endif
  87.     Goto LABEL006
  88.     :LABEL005
  89.     If (Time() > 70200) Goto LABEL014
  90.     :LABEL006
  91.     If (BYTE007 < 4) Then
  92.         STRING001 = " @X07WEDNESDAY "
  93.     Else
  94.         STRING001 = " SATURDAY "
  95.     Endif
  96.     :LABEL007
  97.     If (BYTE007 == 3) Then
  98.         Goto LABEL008
  99.     Endif
  100.     If (BYTE007 == 6) Then
  101.         Goto LABEL008
  102.     Endif
  103.     BYTE007 = BYTE007 + 1
  104.     BYTE009 = BYTE009 + 1
  105.     Goto LABEL007
  106.     :LABEL008
  107.     If (WORD001 == 1996) Then
  108.         If (BYTE008 == 2) Then
  109.             If (BYTE009 == 29) Goto LABEL011
  110.             If (BYTE009 > 29) Then
  111.                 BYTE008 = BYTE008 + 1
  112.                 BYTE009 = BYTE009 - 29
  113.             Else
  114.             ElseIf (BYTE008 == 2) Then
  115.                 If (BYTE009 > 28) Then
  116.                     BYTE008 = BYTE008 + 1
  117.                     BYTE009 = BYTE009 - 28
  118.                 Else
  119.                 ElseIf (BYTE009 >= 31) Then
  120.                     If (BYTE008 == 4) Then
  121.                         Goto LABEL009
  122.                     Endif
  123.                     If (BYTE008 == 6) Then
  124.                         Goto LABEL009
  125.                     Endif
  126.                     If (BYTE008 == 9) Then
  127.                         Goto LABEL009
  128.                     Endif
  129.                     If (BYTE008 == 11) Then
  130.                         Goto LABEL009
  131.                     Endif
  132.                     Goto LABEL010
  133.                     :LABEL009
  134.                     BYTE008 = BYTE008 + 1
  135.                     If (BYTE008 == 13) WORD001 = WORD001 + 1
  136.                     If (BYTE008 == 13) BYTE008 = 1
  137.                     BYTE009 = BYTE009 - 30
  138.                     Goto LABEL011
  139.                     :LABEL010
  140.                     If (BYTE009 == 31) Goto LABEL011
  141.                     BYTE008 = BYTE008 + 1
  142.                     If (BYTE008 == 13) WORD001 = WORD001 + 1
  143.                     If (BYTE008 == 13) BYTE008 = 1
  144.                     BYTE009 = BYTE009 - 31
  145.                 Endif
  146.             Endif
  147.         Endif
  148.     Endif
  149.     :LABEL011
  150.     INTEGER001 = Crc32(0, STRING002)
  151.     INTEGER002 = Crc32(0, STRING003)
  152.     WORD001 = Right(WORD001, 2)
  153.     Cls
  154.     PrintLn ""
  155.     PrintLn ""
  156.     PrintLn "@X0F               @X0AThanks For Calling @X0E@FIRST@       @X0AHope You Get Lucky!!"
  157.     PrintLn ""
  158.     PrintLn "@X08                     POWERBALL PICK FROM LOWER LEVEL SOFTWARE   "
  159.     PrintLn "@X0F            @X1F┌──────────────────────────────────────────────────────┐"
  160.     PrintLn "@X0F            @X1F│                                                      │"
  161.     PrintLn "@X0F            @X1F│   @X7F @X7B┌@X70───┐@X7B┌@X70───┐@X7B┌@X70───┐@X7B┌@X70───┐@X7B┌@X70───┐▐@X4E┌@X40───┐@X4E┌@X40───┐@X4E┌@X40───┐@X4E┌@X40───┐ @X10▄  @X1F│"
  162.     PrintLn "@X0F            @X1F│   @X7F @X1B│ @X1FP @X10│@X1B│ @X1FO @X10│@X1B│ @X1FW @X10│@X1B│ @X1FE @X10│@X1B│ @X1FR @X10│@X70▐@X4E│ @X4FB @X40│@X4E│ @X4FA @X40│@X4E│ @X4FL @X40│@X4E│ @X4FL @X40│ @X10█  @X1F│"
  163.     PrintLn "@X0F            @X1F│   @X7F @X7B└───@X70┘@X7B└───@X70┘@X7B└───@X70┘@X7B└───@X70┘@X7B└───@X70┘▐@X4E└───@X40┘@X4E└───@X40┘@X4E└───@X40┘@X4E└───@X40┘ @X10█  @X1F│"
  164.     PrintLn "@X0F            @X1F│    @X10▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀  @X1F│"
  165.     PrintLn "@X0F            @X1F└──────────────────────────────────────────────────────┘"
  166.     If (INTEGER003 == Right(INTEGER001, 3) + Right(INTEGER002, 4)) Then
  167.         PrintLn "@X0D                      REGISTERED TO: @BOARDNAME@                         "
  168.         Goto LABEL012
  169.     Endif
  170.     :LABEL012
  171.     PrintLn "@X0F             HERE ARE YOUR LUCKY NUMBERS FOR THE POWERBALL DRAWING"
  172.     PrintLn "@X0B@POS:24@ON@X8F>>@X0A@POS:31@", STRING001, "@X09@POS:44@", BYTE008, "@X08/@X09", BYTE009, "@X08/@X09", WORD001
  173.     PrintLn "@X0E@POS:18@", +BYTE001, "  ", +BYTE002, "  ", +BYTE003, "  ", +BYTE004, "  ", +BYTE005, "@X07  AND YOUR POWERBALL IS@X0C ", +BYTE006
  174.     PrintLn ""
  175.     PrintLn ""
  176.     PrintLn ""
  177.     If (INTEGER003 == Right(INTEGER001, 3) + Right(INTEGER002, 4)) Goto LABEL013
  178.     Wait
  179.     End
  180.     :LABEL013
  181.     FAppend 1, PPEPath() + String(BYTE008) + "-" + String(BYTE009) + "-" + String(WORD001), 2, 0
  182.     FPutLn 1, U_Name()
  183.     FPutLn 1, +BYTE001, "  ", +BYTE002, "  ", +BYTE003, "  ", +BYTE004, "  ", +BYTE005, "  ", +BYTE006
  184.     FClose 1
  185.     Wait
  186.     End
  187.     :LABEL014
  188.     If (BYTE007 == 3) Goto LABEL015
  189.     If (BYTE007 == 6) Goto LABEL016
  190.     :LABEL015
  191.     STRING001 = " SATURDAY"
  192.     BYTE009 = BYTE009 + 3
  193.     Goto LABEL008
  194.     :LABEL016
  195.     STRING001 = " WEDNESDAY"
  196.     BYTE009 = BYTE009 + 4
  197.     Goto LABEL008
  198.  
  199. ;------------------------------------------------------------------------------
  200. ;
  201. ; Usage report (before postprocessing)
  202. ;
  203. ; ■ Statements used :
  204. ;
  205. ;    2       End
  206. ;    1       Cls
  207. ;    2       Wait
  208. ;    56      Goto 
  209. ;    33      Let 
  210. ;    19      PrintLn 
  211. ;    36      If 
  212. ;    1       FOpen 
  213. ;    1       FAppend 
  214. ;    2       FClose 
  215. ;    3       FGet 
  216. ;    2       FPutLn 
  217. ;    10      Gosub 
  218. ;
  219. ;
  220. ; ■ Functions used :
  221. ;
  222. ;    12      +
  223. ;    25      +
  224. ;    4       -
  225. ;    31      ==
  226. ;    1       <
  227. ;    3       >
  228. ;    1       >=
  229. ;    26      !
  230. ;    5       Right()
  231. ;    6       Random()
  232. ;    4       Date()
  233. ;    1       Time()
  234. ;    1       U_Name()
  235. ;    1       Year()
  236. ;    1       Month()
  237. ;    1       Day()
  238. ;    1       Dow()
  239. ;    3       String()
  240. ;    2       PPEPath()
  241. ;    1       PPEName()
  242. ;    2       Crc32()
  243. ;
  244. ;------------------------------------------------------------------------------
  245. ;
  246. ; Analysis flags : No flag
  247. ;
  248. ;------------------------------------------------------------------------------
  249. ;
  250. ; Postprocessing report
  251. ;
  252. ;    0       For/Next
  253. ;    0       While/EndWhile
  254. ;    26      If/Then or If/Then/Else
  255. ;    0       Select Case
  256. ;
  257. ;------------------------------------------------------------------------------
  258. ;                 AEGiS Corp - Break the routines, code against the machines!
  259. ;------------------------------------------------------------------------------
  260.